home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / fb386 / graf / a13.bas < prev    next >
BASIC Source File  |  1993-11-30  |  2KB  |  68 lines
  1. 1000 'A13.BAS***************************************************T.K.MOSAKU
  2. 1010 SCREEN@ 0:WINDOW (0,0)-(640,480):CLS
  3. 1020 DEF FNA(P)=COS(P)
  4. 1030 DEF FNB(P)=SIN(P)
  5. 1040 PI=3.14159!:C1=6:C2=5:C3=2:C4=3:C5=4
  6. 1050 LINE (70,75)-(570,400),PSET,7,B:LINE (68,73)-(572,402),PSET,7,B
  7. 1060 A$="☆☆☆ 花火のイメージです｡ ☆☆☆"
  8. 1070 A=LEN(A$):B=(80-A)\2:LOCATE 0,24:PRINT SPACE$(B)+A$
  9. 1080 WAIT 100:T1=TIME:S=1 
  10. 1090 '
  11. 1100 X=220:Y=190:L1=30:L2=70:L3=77:L4=80:L5=95:GOSUB *MAIN
  12. 1110 X=420:Y=260:GOSUB *MAIN
  13. 1120 T2=TIME:T=T2-T1:LOCATE 5,1:PRINT "描き上げた時間--";T;"秒":WAIT 100 
  14. 1130 CLS:LINE (70,75)-(570,400),PSET,7,B:LINE (68,73)-(572,402),PSET,7,B
  15. 1140 '
  16. 1150 A=LEN(A$):B=(80-A)\2:LOCATE 0,24:PRINT SPACE$(B)+A$
  17. 1160 X=320:Y=230:L1=30:L2=85:L3=92:L4=100:L5=115:GOSUB *MAIN
  18. 1170 T3=TIME:T=T3-T2:LOCATE 5,1:PRINT "描き上げた時間--";T;"秒":WAIT 100 
  19. 1180 CLS:LINE (70,75)-(570,400),PSET,7,B:LINE (68,73)-(572,402),PSET,7,B
  20. 1190 '
  21. 1200 LOCATE 0,24:PRINT SPACE$(B)+A$
  22. 1210 L1=30:L2=50:L3=57:L4=60:L5=75:X=170:Y=300:GOSUB *MAIN
  23. 1220 L1=30:L2=80:L3=87:L4=90:L5=105:X=320:Y=200
  24. 1230 C1=6:C2=7:C3=5:C4=5:C5=7:GOSUB *MAIN
  25. 1240 L1=30:L2=40:L3=47:L4=50:L5=65:X=480:Y=240
  26. 1250 C1=6:C2=5:C3=2:C4=3:C5=4:GOSUB *MAIN
  27. 1260 T4=TIME:T=T4-T3:LOCATE 5,1:PRINT "描き上げた時間--";T;"秒"
  28. 1270 WAIT 100:GOTO 1660
  29. 1280 '
  30. 1290 *MAIN
  31. 1300 FOR YY=380 TO Y STEP -1
  32. 1310   LINE (X,YY)-(X,380),PSET,7
  33. 1320 NEXT
  34. 1330 FOR I=-50 TO 230 STEP 20
  35. 1340   X1=X+L1*FNA(I/180*PI)
  36. 1350   Y1=Y-L1*FNB(I/180*PI)
  37. 1360   X2=X+L2*FNA(I/180*PI)
  38. 1370   Y2=Y-L2*FNB(I/180*PI)
  39. 1380   X3=X+L3*FNA(I/180*PI)
  40. 1390   Y3=Y-L3*FNB(I/180*PI)
  41. 1400   LINE(X1,Y1)-(X2,Y2),PSET,C2
  42. 1410   CIRCLE(X3,Y3),3,C3,,,,F
  43. 1420 NEXT
  44. 1430 FOR I=-60 TO 240 STEP 20
  45. 1440   X1=X+L1*FNA(I/180*PI)
  46. 1450   Y1=Y-L1*FNB(I/180*PI)
  47. 1460   X2=X+L4*FNA(I/180*PI)
  48. 1470   Y2=Y-L4*FNB(I/180*PI)
  49. 1480   X3=X+L5*FNA(I/180*PI)
  50. 1490   Y3=Y-L5*FNB(I/180*PI)
  51. 1500   LINE(X1,Y1)-(X2,Y2),PSET,C1
  52. 1510   GOSUB *HANABI
  53. 1520 NEXT
  54. 1530   LINE (X,Y)-(X,380),PSET,1
  55. 1540   CIRCLE (X,Y),5,1,,,,F
  56. 1550 RETURN
  57. 1560 *HANABI
  58. 1570 CIRCLE(X3,Y3),3,C4,,,,F
  59. 1580 FOR K=0 TO 320 STEP 40
  60. 1590   X1=X3+5*FNA(K/180*PI)
  61. 1600   Y1=Y3-5*FNB(K/180*PI)
  62. 1610   X2=X3+9*FNA(K/180*PI)
  63. 1620   Y2=Y3-9*FNB(K/180*PI)
  64. 1630   LINE(X1,Y1)-(X2,Y2),PSET,C5
  65. 1640 NEXT
  66. 1650 RETURN
  67. 1660 'GOTO 1530'
  68.